Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1443 1689 (N31W50 L=296)   710     93        1 (1407/1669-1494/1717) -59.0 W45-W53 N28-N33
      2  529 1553 (N47E24 L=222)   366     45        0 ( 501/1530- 562/1569)   0.0 E27-E20 N45-N48
      3 1409 1541 (N23W38 L=284)   429     79        1 (1374/1513-1451/1569) -68.2 W35-W39 N20-N25
      4  391 1524 (N49E40 L=206)   637     88        2 ( 363/1483- 426/1566)  63.4 E43-E36 N45-N51
      5 1306 1508 (N24W30 L=276)   312     61        1 (1277/1477-1339/1532) -33.7 W28-W31 N22-N25
      6 1415 1426 (N17W33 L=279)   437    203        0 (1334/1378-1476/1490)  13.0 W26-W39 N15-N19
      7  911 1464 (N31W04 L=250)  1055    287        2 ( 772/1442-1052/1483) -16.4 E05-W12 N28-N33
      8 1186 1196 (N09W13 L=259)  1069    329        2 (1070/1160-1347/1241) -16.4 W05-W22 N04-N12
      9 1797 1116 (S10W52 L=298)   317     61        1 (1775/1077-1815/1151)  76.0 W50-W53 S11-S07
     10  333 1007 (N16E45 L=202)  1027    221        2 ( 247/ 926- 414/1063) -34.7 E52-E39 N10-N20
     11  557  814 (N01E32 L=214)   246     84        0 ( 540/ 773- 570/ 857)  56.3 E34-E30 N00-N03
     12 1064  799 (S10E03 L=243)   535     88        3 (1032/ 751-1103/ 837)  36.9 E04-W00 S12-S08
     13 1663  656 (S34W35 L=281)   578    109        0 (1612/ 624-1704/ 699)  26.6 W30-W39 S35-S31
     14 1048  657 (S18E07 L=239)   285     79        0 (1003/ 628-1082/ 683) -59.0 E08-E05 S20-S15
     15  636  602 (S12E33 L=213)   249     95        1 ( 578/ 589- 677/ 621)  -8.1 E36-E29 S13-S11
     16  526  575 (S12E42 L=205)   260     98        1 ( 508/ 539- 559/ 608) -90.0 E43-E39 S14-S09
     17  406  575 (S10E51 L=195)   311     71        3 ( 390/ 539- 425/ 601)  76.0 E53-E48 S11-S07
     18  640  493 (S19E37 L=209)   255     64        1 ( 628/ 459- 654/ 531)  59.0 E39-E35 S21-S16
     19  554  331 (S28E54 L=192)  1851    270        5 ( 455/ 287- 695/ 378)   1.8 E70-E39 S29-S25
     20  976  238 (S45E29 L=217)  1454    211        2 ( 890/ 191-1056/ 292)   6.0 E38-E19 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