Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  991 1832 (N61W30 L=199)   574     84        1 ( 952/1801-1034/1864)   7.6 W24-W39 N59-N62
      2 1291 1802 (N48W53 L=222)   446     62        1 (1267/1766-1315/1825)  15.3 W47-W58 N45-N49
      3 1019 1687 (N48W19 L=188)  1210    172        2 ( 937/1632-1098/1725)  -7.6 W11-W27 N45-N50
      4  406 1590 (N56E49 L=120)   695     85        1 ( 373/1559- 450/1607)   0.0 E56-E42 N53-N57
      5  947 1504 (N37W06 L=175)   226     89        0 ( 903/1492- 991/1515) -26.6 W03-W09 N35-N38
      6 1195 1462 (N29W21 L=190)   576    132        1 (1164/1400-1228/1506)  56.3 W19-W25 N24-N31
      7 1514 1324 (N13W37 L=206)  1336    265        0 (1424/1249-1612/1419) -58.4 W33-W42 N06-N20
      8 1752 1399 (N11W61 L=230)   517     46        0 (1725/1372-1774/1419) -71.6 W58-W63 N09-N12
      9  396 1345 (N38E41 L=128)  1082    167        2 ( 345/1278- 449/1409)  33.7 E45-E36 N33-N41
     10  574 1356 (N35E24 L=144)   240     64        0 ( 551/1328- 609/1375)  26.6 E26-E21 N33-N36
     11  317 1059 (N21E48 L=121)  1355    255        2 ( 281/ 939- 361/1178) -75.1 E51-E44 N13-N28
     12 1044 1076 (N10W02 L=171)   192     55        0 (1018/1058-1079/1096) -33.7 W00-W04 N08-N11
     13 1313  977 (S02W16 L=185)   345    125        0 (1291/ 921-1339/1036)  45.0 W13-W18 S04-N01
     14 1552  827 (S16W29 L=197)   511    134        0 (1505/ 774-1590/ 882)  29.7 W24-W31 S18-S13
     15  268  767 (N04E58 L=111)  1483    222        1 ( 241/ 672- 297/ 879)  63.4 E61-E53 S02-N10
     16  310  794 (N05E53 L=116)   417     20        0 ( 290/ 768- 330/ 820) -90.0 E54-E50 N03-N06
     17 1644  739 (S24W35 L=204)   306     55        0 (1618/ 712-1666/ 764)  26.6 W32-W36 S25-S22
     18  334  694 (S01E54 L=115)   389     83        0 ( 294/ 674- 365/ 723) -21.8 E56-E50 S02-N00
     19 1114  549 (S23E05 L=164)  1275    270        2 (1045/ 435-1178/ 657)  45.0 E11-W01 S29-S17
     20  671  529 (S16E33 L=136)  1120    267        2 ( 583/ 453- 739/ 611) -72.9 E37-E28 S22-S09
     21  488  441 (S19E51 L=118)  3653    337        9 ( 387/ 350- 575/ 540) -74.1 E60-E42 S26-S11
     22  699  341 (S30E40 L=129)  2236    433        2 ( 597/ 215- 830/ 506)  26.6 E60-E24 S39-S19
     23 1186  354 (S39E05 L=164)   428     58        1 (1155/ 336-1222/ 380) -11.3 E07-E02 S41-S36
     24 1324  252 (S54W03 L=172)  1644    246        2 (1205/ 215-1418/ 291)  -5.4 E08-W13 S56-S51
  

    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