Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1492 1406 (N13W39 L=343)   489    183        0 (1425/1355-1565/1438)  -5.2 W33-W44 N11-N13
      2  258 1164 (N32E49 L=254)  1332    260        0 ( 194/1077- 332/1234) -45.0 E55-E43 N25-N37
      3 1165 1171 (N10W12 L=315)   185     49        0 (1134/1156-1194/1185) -33.7 W10-W13 N08-N11
      4 1846 1128 (S13W58 L=  1)   511    133        1 (1813/1084-1874/1171)  23.2 W52-W61 S14-S11
      5 1103 1033 (N04W05 L=308)   428    105        0 (1057/ 994-1158/1075)  15.9 W01-W08 N02-N05
      6  962 1049 (N09E03 L=301)   542    150        1 ( 883/1027-1037/1064) -32.0 E07-W01 N05-N10
      7  573  968 (N14E28 L=276)  1268    464        5 ( 350/ 881- 731/1026) -10.1 E44-E16 N11-N17
      8 1637  870 (S21W33 L=337)   367     82        0 (1623/ 826-1650/ 922)  59.0 W31-W34 S22-S17
      9  121  873 (N17E71 L=232)   819    127        1 (  97/ 850- 140/ 900)  20.6 E76-E68 N15-N18
     10  290  819 (N11E53 L=250)   401     86        0 ( 272/ 777- 314/ 861) -90.0 E54-E51 N08-N14
     11 1161  577 (S24E05 L=299)  1653    338        5 (1116/ 433-1224/ 713)  51.3 E11-W02 S32-S16
     12  495  540 (S09E47 L=257)  1016    227        4 ( 443/ 473- 543/ 604)  83.7 E50-E43 S13-S04
     13  604  524 (S12E40 L=264)   326    113        4 ( 584/ 489- 627/ 568)  68.2 E41-E38 S14-S09
     14  378  518 (S08E58 L=245)  1067    235        5 ( 340/ 445- 411/ 561)  69.4 E62-E54 S12-S04
     15  483  361 (S20E58 L=245)  1238    257        3 ( 440/ 323- 530/ 401) -90.0 E62-E53 S23-S16
  

    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