Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1526 1740 (N32W62 L=295)   614     59        0 (1501/1712-1554/1764)  12.5 W57-W66 N30-N33
      2 1296 1691 (N35W39 L=271)   572    133        1 (1246/1641-1336/1743)  83.7 W37-W40 N31-N40
      3 1472 1589 (N24W45 L=277)  1061    233        5 (1432/1510-1516/1682)  61.4 W41-W50 N19-N30
      4  651 1607 (N48E12 L=220)   367     47        1 ( 622/1579- 681/1628)   0.0 E15-E09 N45-N49
      5 1539 1599 (N23W51 L=283)   379     70        1 (1512/1574-1574/1621)  -9.5 W47-W53 N21-N24
      6  505 1571 (N49E27 L=205)   566     97        1 ( 476/1531- 533/1615) -81.9 E30-E24 N45-N52
      7 1066 1542 (N32W16 L=248)  1314    360        2 ( 885/1512-1224/1568) -16.9 W03-W26 N28-N36
      8 1598 1512 (N17W50 L=283)   417    148        0 (1546/1482-1629/1565)  18.4 W44-W54 N15-N20
      9 1454 1278 (N08W31 L=263)   927    335        2 (1300/1246-1583/1314) -14.7 W21-W40 N03-N12
     10 1852 1274 (S02W63 L=296)   392     50        0 (1830/1249-1871/1294) -53.1 W61-W65 S04-N00
     11  430 1106 (N20E35 L=197)  1145    341        5 ( 287/1048- 550/1188) -33.0 E47-E27 N14-N27
     12  195  910 (N13E60 L=172)  1016    186        2 ( 163/ 827- 222/1001)  84.3 E62-E57 N08-N18
     13  833  951 (N03E12 L=220)   269     83        1 ( 798/ 916- 876/ 980)   0.0 E14-E09 N01-N04
     14 1191  872 (S09W06 L=238)   441    140        2 (1148/ 828-1239/ 939)  45.0 W02-W08 S10-S05
     15 1279  863 (S11W11 L=243)   412     96        2 (1243/ 824-1319/ 906) -53.1 W08-W12 S13-S08
     16 1268  778 (S16W09 L=241)   263     80        1 (1229/ 751-1305/ 811)  11.3 W06-W11 S17-S14
     17 1781  704 (S34W48 L=280)   813    129        0 (1719/ 673-1824/ 749)   4.8 W40-W52 S35-S32
     18  821  676 (S12E19 L=213)   303    106        0 ( 759/ 659- 862/ 706)   0.0 E23-E16 S13-S11
     19  688  646 (S11E28 L=204)   210     85        0 ( 672/ 607- 704/ 679)  76.0 E29-E26 S13-S09
     20  704  389 (S27E38 L=195)  1962    382        4 ( 555/ 318- 887/ 481)   5.4 E54-E21 S29-S24
     21 1111  290 (S45E15 L=217)  1598    283        2 (1002/ 233-1233/ 381)   9.5 E26-E02 S47-S41
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y