Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1625 1349 (N06W45 L=266)   637    103        5 (1584/1314-1670/1384) -38.7 W42-W48 N03-N08
      2 1223 1367 (N18W21 L=241)   230    114        0 (1166/1357-1280/1380) -33.7 W17-W23 N16-N20
      3 1499 1236 (N04W33 L=253)   724    216        2 (1426/1158-1574/1326)  19.7 W25-W40 N01-N06
      4 1217 1279 (N14W18 L=238)   527    147        2 (1149/1239-1280/1316)  -6.3 W13-W22 N12-N14
      5  972 1078 (N09E02 L=219)   643    111        4 ( 925/1023-1019/1123)  38.7 E04-W01 N06-N11
      6 1631 1025 (S11W36 L=256)   330     82        0 (1597/ 996-1661/1064) -59.0 W34-W37 S13-S08
      7 1813 1015 (S18W51 L=271)   314     64        0 (1799/ 971-1825/1049) -90.0 W49-W52 S20-S15
      8  371 1024 (N20E41 L=179)   245     35        0 ( 343/1010- 394/1035) -26.6 E43-E38 N19-N21
      9  256  952 (N18E53 L=167)   625    112        1 ( 234/ 893- 294/1003)  50.2 E56-E48 N15-N21
     10  591  795 (N03E31 L=190)   851    245        0 ( 516/ 685- 644/ 870) -76.0 E33-E28 S04-N08
     11 1305  686 (S21W07 L=227)  1123    267        0 (1247/ 575-1359/ 808)  40.2 W00-W13 S27-S15
     12 1049  705 (S13E07 L=213)   367    136        1 (1023/ 655-1078/ 769)  50.2 E09-E03 S16-S10
     13 1765  681 (S37W43 L=263)  1848    184        3 (1686/ 624-1836/ 745)   6.3 W34-W52 S39-S33
     14  594  516 (S13E40 L=180)  2048    490        6 ( 510/ 387- 721/ 693)  87.3 E45-E36 S22-S01
     15 1099  671 (S17E05 L=215)   196     24        1 (1076/ 651-1117/ 690)  18.4 E06-E03 S18-S15
     16  786  591 (S13E25 L=195)   487    182        0 ( 755/ 526- 844/ 636)  26.6 E28-E20 S16-S11
     17  688  576 (S12E32 L=189)   371     70        1 ( 654/ 542- 719/ 607)  31.0 E34-E29 S13-S10
     18  824  414 (S25E30 L=190)  1197    275        2 ( 735/ 314- 906/ 517) -90.0 E34-E27 S33-S16
     19  515  361 (S21E56 L=165)  2647    285        7 ( 424/ 272- 584/ 471)  13.4 E85-E43 S26-S15
     20  437  410 (S16E59 L=161)  1321    196        4 ( 349/ 367- 504/ 470) -45.0 E65-E54 S20-S11
     21 1154  419 (S34E10 L=210)   326    104        0 (1119/ 372-1186/ 461)  29.7 E13-E06 S36-S31
  

    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