Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  809 1717 (N45E14 L=285)   500     57        1 ( 776/1694- 843/1737) -26.6 E17-E11 N43-N47
      2 1255 1636 (N36W21 L=320)   840    232        0 (1122/1620-1352/1653) -10.0 W10-W28 N34-N37
      3 1648 1603 (N32W55 L=354)   679    151        1 (1576/1574-1714/1624) -15.9 W48-W62 N30-N34
      4 1665 1489 (N24W50 L=350)  1536    276        4 (1583/1426-1751/1582) -42.3 W46-W58 N20-N30
      5  687 1543 (N32E22 L=278)   991    215        1 ( 583/1522- 786/1563)  -7.6 E29-E14 N30-N33
      6 1590 1382 (N17W40 L=339)  1930    506        8 (1449/1248-1769/1525) -41.8 W30-W53 N08-N27
      7 1052 1469 (N25W04 L=303)  1436    422        2 ( 871/1365-1213/1523) -26.6 E07-W13 N17-N29
      8 1285 1373 (N18W18 L=318)   277     89        0 (1255/1331-1317/1415)  59.0 W16-W20 N15-N20
      9 1819 1354 (N15W62 L=  1)   467     75        1 (1801/1326-1833/1404)  45.0 W58-W65 N13-N18
     10  926 1345 (N18E05 L=295)   223     99        0 ( 910/1298- 958/1379)  59.0 E05-E02 N14-N19
     11  273 1311 (N19E54 L=246)   517     70        2 ( 252/1281- 309/1344) -45.0 E56-E49 N17-N21
     12 1361 1285 (N12W22 L=321)   477    170        3 (1288/1230-1426/1327) -29.1 W17-W26 N08-N14
     13  336 1188 (N11E46 L=253)   778    116        1 ( 298/1155- 379/1227) -29.7 E49-E42 N09-N13
     14 1414  888 (S12W24 L=323)  1447    380        2 (1341/ 746-1512/1057)  66.0 W19-W30 S20-S02
     15  723  814 (S13E20 L=279)   284     89        0 ( 701/ 769- 755/ 853)  45.0 E21-E17 S16-S11
     16 1748  791 (S19W51 L=350)   287     22        0 (1728/ 773-1764/ 811)  45.0 W49-W52 S19-S17
     17 1010  745 (S19E02 L=297)   324    166        0 ( 994/ 671-1047/ 805)  76.0 E03-W00 S23-S15
     18 1473  615 (S29W30 L=329)   570    173        1 (1432/ 560-1519/ 707)  60.9 W27-W32 S33-S23
     19  757  608 (S27E20 L=279)   417    144        0 ( 715/ 549- 797/ 674)  45.0 E24-E16 S30-S22
     20 1354  508 (S36W22 L=321)   692    134        1 (1287/ 478-1420/ 552)  11.3 W17-W27 S38-S33
     21 1011  447 (S39E04 L=295)   459    101        2 ( 964/ 425-1068/ 468) -15.9 E07-W00 S40-S37
     22  669  398 (S40E33 L=266)   577    101        2 ( 609/ 380- 718/ 417)   0.0 E38-E28 S41-S39
  

    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