Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1366 1864 (N44W65 L=322)   950     70        2 (1339/1830-1386/1903)   7.8 W57-W79 N42-N46
      2 1270 1840 (N46W52 L=309)   431     31        1 (1255/1811-1286/1864)  29.7 W48-W56 N43-N47
      3 1318 1644 (N32W37 L=295)   808    113        0 (1267/1619-1380/1673) -56.3 W34-W40 N28-N34
      4 1705 1486 (N13W58 L=316)  2120    227        4 (1610/1426-1810/1557) -38.2 W51-W67 N06-N18
      5  432 1520 (N47E34 L=223)   689     88        1 ( 391/1488- 483/1542) -10.3 E39-E28 N45-N49
      6 1288 1473 (N22W27 L=285)   339    107        0 (1244/1437-1323/1496) -59.0 W25-W28 N19-N24
      7  768 1399 (N31E07 L=250)  1042    303        1 ( 613/1378- 903/1414) -18.4 E17-W01 N27-N34
      8 1259 1354 (N16W21 L=279)   345    174        0 (1186/1323-1333/1388)   0.0 W16-W26 N15-N17
      9 1013 1117 (N09W01 L=259)   975    350        2 ( 893/1091-1190/1153) -17.4 E05-W11 N04-N11
     10 1668 1062 (S09W40 L=297)   750    175        0 (1623/ 993-1711/1134) -68.2 W37-W42 S14-S04
     11 1828 1022 (S16W53 L=311)   453     85        2 (1811/ 974-1844/1064)  51.3 W51-W55 S18-S13
     12  238  942 (N15E55 L=203)  1113    202        1 ( 167/ 852- 303/1005) -39.8 E62-E49 N08-N19
     13  434  781 (N02E41 L=216)   462     84        2 ( 405/ 752- 471/ 807)   0.0 E43-E38 N00-N03
     14  884  732 (S10E15 L=243)   334     57        2 ( 861/ 696- 907/ 761) -90.0 E16-E12 S12-S08
     15 1539  605 (S34W24 L=281)   750    136        1 (1477/ 571-1597/ 646)   5.7 W18-W28 S35-S31
     16  866  604 (S17E19 L=238)   293     80        2 ( 837/ 575- 907/ 640) -53.1 E20-E17 S19-S14
     17  515  428 (S20E50 L=208)   961    149        3 ( 472/ 372- 564/ 477) -90.0 E53-E46 S24-S16
     18  512  321 (S27E59 L=199)  1494    246        5 ( 414/ 282- 603/ 393)   0.0 E79-E46 S29-S23
     19  886  205 (S45E39 L=218)  1461    169        1 ( 817/ 160- 944/ 261)  14.0 E49-E29 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