Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  908 1518 (N18E21 L= 82)   750    196        1 ( 882/1428- 930/1608) -63.4 E24-E17 N12-N24
      2  313 1569 (N08E69 L= 34)  1077    143        5 ( 291/1526- 351/1600)  68.2 E74-E65 N05-N10
      3 1284 1512 (N29W01 L=104)   586     97        1 (1250/1453-1310/1556) -45.0 E02-W04 N25-N31
      4 1099 1387 (N15E06 L= 97)   572    161        0 (1072/1315-1116/1469) -58.0 E09-E03 N11-N19
      5  511 1366 (S00E40 L= 63)   379     95        1 ( 480/1333- 549/1402)  -8.1 E43-E36 S01-N01
      6  884 1103 (S06E10 L= 93)   553    121        0 ( 842/1046- 908/1176) -83.7 E11-E08 S10-S01
      7 1627 1141 (N18W32 L=135)   278     81        0 (1607/1100-1650/1170)  80.5 W31-W33 N14-N20
      8  305  920 (S31E45 L= 58)  3282    650        6 ( 151/ 763- 428/1104)  51.3 E60-E37 S42-S17
      9 1650  979 (N09W38 L=141)   351    110        0 (1605/ 959-1684/1018)  51.3 W35-W40 N07-N12
     10 1860  939 (N15W58 L=161)   458     53        1 (1838/ 911-1877/ 966)  90.0 W55-W59 N12-N16
     11 1768  853 (N07W52 L=155)   580     86        1 (1724/ 816-1803/ 887)  56.3 W49-W54 N03-N09
     12  630  778 (S31E17 L= 86)   824    261        1 ( 557/ 678- 705/ 877)  75.1 E21-E14 S38-S23
     13  960  790 (S21W03 L=106)   600    156        0 ( 876/ 737-1030/ 846)  63.4 W00-W05 S26-S16
     14 1182  717 (S19W18 L=121)   529    127        0 (1113/ 682-1245/ 747)  54.5 W15-W20 S22-S15
     15 1682  713 (S03W50 L=153)   324     45        1 (1660/ 689-1708/ 733)  63.4 W48-W51 S05-S01
     16 1557  564 (S15W48 L=150)   374     73        1 (1518/ 540-1590/ 591)  53.1 W45-W49 S16-S12
     17  471  518 (S53E28 L= 75)   327     77        0 ( 448/ 497- 500/ 536)  33.7 E30-E24 S55-S51
     18 1354  455 (S28W40 L=143)   467     84        0 (1312/ 434-1397/ 479)   9.5 W36-W42 S28-S25
     19 1241  433 (S33W34 L=137)   693    113        2 (1185/ 400-1295/ 464)  20.6 W30-W38 S34-S30
     20 1533  411 (S24W55 L=158)   373     84        0 (1500/ 388-1570/ 444)  68.2 W52-W56 S25-S20
  

    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